home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Public_3_1991_Stony_Soft_de_Side_A.d64 / d.sir richard (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  470 lines
  1. 1 rem peter diehm
  2. 2 rem dont list (NULL)
  3. 5 poke 53280,0:print"[147]":poke53281,0
  4. 6 rem sir richard
  5. 7 rem (c) by peter diehm 90
  6. 12 b=2:s=3:v=11:c=33:kl=0:cn=1720:a=10
  7. 36 printchr$(147):gosub 37:poke 53280,0:gosub 2500:gosub7000:gosub580:goto51
  8. 37 print"              [206][205]        [206][205]"
  9. 38 print"              [180][170]        [180][170]"
  10. 39 print"          [207][204][207][183][183][183][183][204][207][204][207][204][207][183][183][183][183][204][207][208]"
  11. 40 print"          [180] [184][185]        [185]    [184] [170]"
  12. 41 print"          [180] [184]      [184]    [184]    [170]"
  13. 42 print"          [204]  [184]     [207][208]        [186]"
  14. 43 print"           [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":return
  15. 49 for i=1 to 500:next:return
  16. 51 printchr$(147):printchr$(5):gosub 37:poke53280,0
  17. 53 printspc(3)" nachdem du deinen eid abgelegt
  18. 54 [153][166]3)" hast moege das spiel beginnen"
  19. 59 [153][166]3)" viel glueck sir richard
  20. 60 printspc(3)" moege er eine taste druecken -> "
  21. 61 get h$:ifh$="" then 61
  22. 65 for u=1 to 100:next:a=5234:i=14:l=3449:w=int(99*rnd(6))+85:i=int(20*rnd(1))+1
  23. 66 cn=1200:rem sir richard
  24. 67 printchr$(147):gosub 68:gosub 72:poke53280,0:poke53281,0
  25. 68 print" [207][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][208]"
  26. 69 print"  sir richie      jahr "cn"
  27. 70 [153]
  28. 71 [153]" (NULL)ascascascascascascascascascascascascascascascascascascascascascascascascascascascascascascascascascsqr":[153]:[142]
  29. 72 [141] 37
  30. 76 [153]:[151]53281,0:[151]53280,0
  31. 77 [153]
  32. 78 [153]"  gulden:"a "$    arbeiter: "i""
  33. 79 [153]"                                      "
  34. 80 [153]"  weizen:"l"kg   land: "w"qkm"
  35. 81 [153][166]1)" [1] weizen        [2] arbeiter "
  36. 82 [153][166]1)" [3] land          [4] weiter    "
  37. 83 [161] e$:[139]e$[178]"" [167] 83
  38. 84 [145] [197](e$)[137] 1000,2100,2000,110
  39. 85 [137]83
  40. 86 [153][166]5)" [ 1 ] weizen kaufen
  41. 87 printspc(5)" [ 2 ] weizen verkaufen":printspc(5)" [ 3 ] zurueck"
  42. 88 get l$:ifl$="" then 88
  43. 89 on val(l$) goto 90,93,67,86,86,86,86
  44. 90 print" wieviel weizen kaufen ":input p
  45. 91 l=l+p:a=a-p*4
  46. 92 if u>0 then 1000
  47. 93 print" wieviel weizen verkaufen ":input bt:if bt>l then 2000
  48. 94 l=l-bt:a=a+100
  49. 95 if u>0 then 1000
  50. 96 print" wieviel qkm kaufen ":input y
  51. 97 w=w+y:a=a-y*99
  52. 98 if u>0 then 2000
  53. 100 print" wieviel qkm verkaufen ":input x
  54. 101 if x>w then 100
  55. 102 w=w-x:a=a+x*5
  56. 103 if u>0 then 2000
  57. 110 printchr$(147):poke53281,6:print"[147]"
  58. 111 printspc(15)" volk "
  59. 116 printspc(5)" weizen "l""
  60. 117 printspc(5)" wieviel weizen fuer das volk !"
  61. 118 input" ---> ";d
  62. 119 if d>l then 110
  63. 120 l=l-d:a=a+100:printspc(5)" geld "a" $"
  64. 121 printspc(5)" wieviel lohn fuer die arbeiter !"
  65. 122 input" ---> ";f
  66. 124 a=a-f:l=l+10
  67. 125 printspc(30)" -taste- "
  68. 128 get u$:ifu$="" then 128
  69. 130 print"[147]":poke53281,0
  70. 131 gosub 68:poke 53280,2 :print""
  71. 132 if d<300 then 134:if f>2000 then 150
  72. 133 if d>600  then 140
  73. 134 print" dein volk ist unzufrieden.":print" schlechtes ernte !"
  74. 135 u=l/10:u=u-100:goto142
  75. 140 print" dein volk ist zufrieden.":print" gute ernte !"
  76. 141 u=w+2000/2
  77. 142 print" deine bauern erwirtschafteten."
  78. 143 print""u" kg weizen."
  79. 144 l=l+u:l=int(l*100)/100
  80. 145 if u>0 then 160
  81. 150 print" wegen deinen guten loehnen schlossen"
  82. 151 print" sich 3 arbeiter dir an."
  83. 152 i=i+3
  84. 160 if f>400 then 170
  85. 161 if f<400 then 162
  86. 162 print" deine arbeiter sind mit ihren"
  87. 163 print" loehnen unzufrieden 2 verlassen dich."
  88. 165 i=i-2:a=a+200
  89. 166 :
  90. 170 print" durch verkauf von waren erhielst du"
  91. 171 t=w*12
  92. 172 print""t" $ gulden"
  93. 173 a=a+t:l=l+100:i=i+1:s=s+1
  94. 174 printspc(30)" -taste- "
  95. 175 get r$:if r$="" then 175
  96. 176 print"[147]":poke53280,0
  97. 180 printspc(10)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  98. 181 printspc(10)"[180]                [170]"
  99. 182 printspc(10)"[180]    steuern     [170]"
  100. 184 printspc(10)"[180]                [170]"
  101. 185 printspc(10)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":print" geld "a" gulden"
  102. 186 print"[154] landessteuern :"
  103. 187 rem ha,ha,ha
  104. 189 print" steuer         "v" %"
  105. 190 print" mehrwertsteuer "c" %"
  106. 191 print" [1] steuer aendern"
  107. 192 print" [2] mehrwertsteuer aendern"
  108. 193 print" [3] weiter"
  109. 194 get s$:if s$="" then 194
  110. 195 on val(s$) goto 2200,2300,240
  111. 196 gosub 194
  112. 240 printchr$(147):poke53281,6
  113. 241 gosub 37:printspc(10)" burgherr "a$" "
  114. 242 printspc(5)" [ 1 ] ritter "
  115. 243 printspc(5)" [ 2 ] raueber"
  116. 245 printspc(5)" [ 3 ] jahres ende"
  117. 247 get q$:if q$="" then 247
  118. 248 on val(q$) goto 2600,2700,500
  119. 249 gosub 247
  120. 315 printspc(5)" du wirbst einen ritter an !
  121. 316 [153][166]5)" angeworben.":[129] u[178]1 [164] 500:[130]
  122. 317 a[178]a[171]300:b[178]b[170]1:i[178]i[170]1:l[178]l[170]100
  123. 318 [139] u[177]0 [167] 2600
  124. 319 [139] b[177]0 [167] 321
  125. 320 [139] u[177]0 [167] 2600
  126. 321 [153][166]5)" du schmeisst einen ritter raus!":[129]u[178]1[164]500:[130]:b[178]b[171]1:i[178]i[170]4
  127. 322 [139] u[177]0 [167] 2600
  128. 323 [153][199](147):[141] 68
  129. 324 [151] 53280,5
  130. 325 [153][199](5)
  131. 336 [153][166]6)"du wirbst ein rudel raueber an.":[129]u[178]1[164]500:[130]
  132. 337 s[178]s[170]1:a[178]a[171]100:i[178]i[170]1
  133. 338 [139] u[177]0 [167] 2700
  134. 340 [139] s[177]0 [167] 342
  135. 341 [139] u[177]0 [167] 2700
  136. 342 [153][166]5)" du schmeisst ein rudel raueber raus"
  137. 343 [153][166]5)" aus deiner burg !":[129]u[178]1[164]500:[130]
  138. 344 s[178]s[171]1:a[178]a[170]50:l[178]l[170]500:i[178]i[170]3
  139. 345 [139] u[177]0 [167] 2700
  140. 360 [153]" du hast einen arbeiter eingestellt."
  141. 361 i[178]i[170]1:a[178]a[171]10:l[178]l[170]100
  142. 362 [129] u[178]1 [164] 2000:[130]:[141] 346
  143. 370 [153]" du entlaesst einen arbeiter."
  144. 371 i[178]i[171]1:a[178]a[170]20
  145. 372 [129] u[178]1 [164] 2000:[130]:[141] 346
  146. 500 [153][199](147):[151]53280,2:[151]53281,0
  147. 501 jh [178]b[172]20
  148. 502 hu [178]s[172]45
  149. 503 [141] 68:[141] 37
  150. 505 [153][166]2)" deine ritter erhielten loehne in"
  151. 506 [153][166]2)" hoehe von "jh" gulden."
  152. 507 [153][166]2)" deine raueber erraubten "hu" gulden."
  153. 508 [153][166]30)"-taste-"
  154. 509 [161] a$:[139] a$[178]"" [167] 509
  155. 510 a[178]a[170]hu:a[178]a[171]jh
  156. 514 [139] u[177]0 [167] 3000
  157. 530 [153][199](147):[153][199](5)
  158. 531 [141] 37
  159. 532 ui[178][181] (4[172][187](1))[170]1:[139] ui[178]1 [167] 534
  160. 533 [153][153][181]" "ui" arbeiter haben dich verlassen.":i[178]i[171]ui:[141] 535
  161. 534 [153]" "ui" arbeiter hat dich verlassen.":i[178]i[171]ui
  162. 535 [129]vb[178]1 [164] 2000:[130]:[141] 67
  163. 550 [153][199](147)
  164. 552 [141] 37
  165. 554 [153]" noch ein spiel ":[133] e$
  166. 555 [139] e$[178]"j" [176]e$[178]"ja" [167] 13
  167. 556 [139] e$[178]"n" [176]e$[178]"nein" [167] 560
  168. 557 [141] 550
  169. 560 [153][199](147):[141] 37
  170. 561 [153]" tschuess ":[129] i[178]1 [164] 500:[130]
  171. 562 [153]" (c) by peter diehm april 90":[129]i[178]1[164]2000:[130]
  172. 563 [158] 64738
  173. 580 [153][199](147):[153][199](5):[151] 53280,0  :[151]53281,0
  174. 581 [153]" nach dem tod deines vaters der flucht
  175. 582 print" deines bruders dem aufstand deiner
  176. 583 [153]" bauern uebernimmst du das land
  177. 584 print" deiner ahnen . welches in schutt
  178. 585 [153]" und asche liegt !
  179. 586 print" regiere es gerecht und das volk wird
  180. 587 [153]" dir zur fuessen liegen ! wehe dem
  181. 588 print" der dem volk die freiheit nimmt
  182. 589 [153]" diesem bestraft das leben ...
  183. 591 printspc(30)"-taste-"
  184. 592 get b$:ifb$="" then 592
  185. 594 gosub 51
  186. 610 printchr$(147):poke 53280,5
  187. 611 printchr$( 5)
  188. 612 print" du hast versagt ..."
  189. 613 print" das volk jagt dich ausser"
  190. 614 print" landes du gehst ins exil nach"
  191. 615 print" groenland."
  192. 616 print" das spiel ist hiemit zu"
  193. 617 print" ende !"
  194. 618 for i=1 to 3000:next:gosub 37
  195. 619 sys 64738
  196. 620 printchr$(147):printchr$(5)
  197. 621 cn =cn +1:if a>10000 then 650
  198. 622 if cn>2 then 610
  199. 623 gosub 500
  200. 650 printchr$(147):poke 53280,2:poke53281,0
  201. 651 printchr$( 5 )
  202. 655 goto 67
  203. 663 rem (c) obyright peter diehm
  204. 664 rem 30.5.1990
  205. 665 rem waldstr.58
  206. 666 rem 6149 rimbach 1
  207. 1000 rem ?
  208. 1005 print"[147]"
  209. 1006 printspc(7)"weizen
  210. 1007 [153][166]5)" weizen "l""
  211. 1009 [153][166]5)" geld   "a""
  212. 1010 [153][166]5)" weizen preis pro kg =4 $":[137] 86
  213. 2000 [153]"load"
  214. 2001 [153][166]15)" land "
  215. 2010 [153][166]5)" [ 1 ] land kaufen"
  216. 2011 [153][166]5)" [ 2 ] land verkaufen"
  217. 2012 [153][166]5)" [ 3 ] zurueck"
  218. 2013 [153][166]5)" du hast "w" qkm land "
  219. 2014 [161] f$:[139]f$[178]"" [167] 2014
  220. 2015 [145] [197](f$) [137] 96,100,67
  221. 2020 [141] 2014
  222. 2100 [153]"load"
  223. 2111 [153][166]15)" arbeiter "
  224. 2115 [153][166]5)" [ 1 ] arbeiter einstellen"
  225. 2116 [153][166]5)" [ 2 ] arbeiter entlassen"
  226. 2117 [153][166]5)" [ 3 ] zurueck"
  227. 2118 [153][166]5)" du hast "i" arbeiter"
  228. 2120 [161] h$:[139]h$[178]"" [167] 2120
  229. 2121 [145] [197](h$) [137] 2130,2140,67
  230. 2122 [141] 2120
  231. 2130 [153][166]5)" weiviele arbeiter einstellen ?"
  232. 2132 [133]" ---> ";mm
  233. 2133 i[178]i[170]mm:gg[178]mm[172]5:a[178]a[171]gg:vq[178]mm[172]10:a[178]a[171]vq
  234. 2135 [129] u[178]1 [164] 500:[130]
  235. 2138 [139] u[177]0 [167] 2100
  236. 2140 [153][166]5)" wieviele arbeiter entlassen ?"
  237. 2142 [133]" ---> ";ll
  238. 2145 [139] ll[177]i [167] i[178]0
  239. 2146 i[178]i[171]ll:dd[178]ll[172]5:a[178]a[171]ll
  240. 2148 [129] u[178]1[164]500:[130]
  241. 2149 [139] u[177]0 [167] 2100
  242. 2200 [153]"load"
  243. 2210 [153][166]15)" steuern ":[129]u[178]1[164]20:[153]"--";:[130]
  244. 2212 [153][166]5)" [ 1 ] hoeher"
  245. 2215 [153][166]5)" [ 2 ] weniger"
  246. 2218 [153][166]5)" [ 3 ] zurueck"
  247. 2220 [161] c$:[139]c$[178]"" [167] 2220
  248. 2221 [145] [197] (c$) [137] 2230,2250,176
  249. 2225 [141] 2220
  250. 2230 [153][166]5)" um wieviel erhoehen ?"
  251. 2231 [133]" ---> ";bb
  252. 2235 [139] bb[177]100 [167] 2230
  253. 2236 [139] v[170]bb [177] 100 [167] 2230
  254. 2238 v[178]v[170]bb:ww[178]bb[172]4:a[178]a[171]bb
  255. 2239 [139] u[177]0 [167] 176
  256. 2250 [153][166]5)" um wieviel verringern ?"
  257. 2255 [133]" ---> ";yy
  258. 2256 [139]yy[177]100 [167] 2250
  259. 2257 [139] yy[171]v [179]0 [167] 2250
  260. 2258 v[178]v[171]yy:ww[178]yy[172]10:a[178]a[170]ww
  261. 2260 [139] u[177]0 [167] 176
  262. 2300 [153]"load"
  263. 2310 [153][166]10)" mehrwertsteuer"
  264. 2312 [153][166]5)" [ 1 ] hoeher"
  265. 2315 [153][166]5)" [ 2 ] weniger"
  266. 2318 [153][166]5)" [ 3 ] zurueck"
  267. 2320 [161] d$:[139]d$[178]"" [167] 2320
  268. 2323 [145] [197](d$) [137] 2330,2340,176
  269. 2325 [141] 2320
  270. 2330 [153][166]5)" umwieviel erhoehen ?"
  271. 2332 [133]" ---> ";pp
  272. 2334 [139] pp[177]100 [167] 2330
  273. 2335 [139] pp[170]c[177]100 [167] 2330
  274. 2338 c[178]c[170]pp:ff[178]pp[173]10:a[178]a[170]ff
  275. 2339 [139] u[177]0 [167] 176
  276. 2340 [153][166]5)" umwieviel verringern ?"
  277. 2343 [133]" ---> ";oo
  278. 2345 [139] oo[177]100 [167] 2340
  279. 2346 [139] oo[171]c [179]0[167] 2340
  280. 2348 c[178]c[171]oo:qq[178]c[172]2:a[178]a[170]qq
  281. 2350 [139] u[177]0 [167] 176
  282. 2500 [153][166]7)"                         "
  283. 2510 [153][166]7)" sys                        "
  284. 2520 [153][166]7)" sys                        "
  285. 2530 [153][166]7)" sys      sir richard       "
  286. 2540 [153][166]7)" sys                        "
  287. 2560 [153][166]7)" sys                        "
  288. 2562 [153][166]7)" sys  (c) by peter diehm    "
  289. 2569 [153][166]7)" sys                        "
  290. 2571 [153][166]7)" sys      april/nov.90      "
  291. 2575 [153][166]7)" sys                        "
  292. 2581 [153][166]7)" sys                        "
  293. 2585 [153][166]7)"                         "
  294. 2590 [129] u[178]1[164]2999:[130]:[142]
  295. 2600 [143] ritter
  296. 2610 [153]"load":[153][166]15)" ritter ":[153][166]15)"--------"
  297. 2630 [153][166]5)" [ 1 ] ritter anwerben (300)"
  298. 2640 [153][166]5)" [ 2 ] ritter rauswerfen "
  299. 2645 [153][166]5)" [ 3 ] zurueck "
  300. 2650 [153][166]5)" gulden "a" $  unb "b" ritter"
  301. 2670 [153][166]5)" mit je 20 mann gefolge !"
  302. 2681 [161] w$:[139]w$[178]"" [167] 2681
  303. 2683 [145] [197](w$) [137] 315,319,240
  304. 2690 [141] 2681
  305. 2700 [143] raueber
  306. 2701 [153]"load"
  307. 2710 [153][166]15)" raueber ":[153][166]15)"---------"
  308. 2720 [153][166]5)" [ 1 ] raueber anwerben (100)"
  309. 2730 [153][166]5)" [ 2 ] raueber entlassen"
  310. 2740 [153][166]5)" [ 3 ] zurueck"
  311. 2750 [153][166]5)" gulden "a" $  raueber "s""
  312. 2752 [161] x$:[139]x$[178]"" [167] 2752
  313. 2753 [145] [197](x$) [137] 336,340,240
  314. 3000 [143]
  315. 3001 [139] a[179]5000 [175] a[177]4000 [167] 3100
  316. 3010 [139] i[177]20 [167] 3200
  317. 3015 [139] v[177]80 [167] 3300
  318. 3016 [139] a[177] 7000 [167] 3500
  319. 3020 [139] u[177]0 [167] 4000
  320. 3100 pl[178][181](4[172][187](1))[170]1
  321. 3110 [145] pl [137] 3115,3130,4000,3200,4000
  322. 3113 [139] u[177]0 [167] 4000
  323. 3115 [153]"load":mq[178]mq[170]1
  324. 3116 [139] mq[177]1 [167] 4000
  325. 3117 [141] 37
  326. 3118 [153][166]5)" du wirst zum ritter "
  327. 3120 [153][166]5)" geschlagen !":a[178]a[170]2500
  328. 3122 [153][166]25)"-taste-"
  329. 3123 [161] b$:[139]b$[178]"" [167] 3123
  330. 3125 [139] u[177]0 [167] 4000
  331. 3130 [153]"load":nq[178]nq[170]1
  332. 3132 [139] nq[178]2 [176] nq[178]5 [167] 3150
  333. 3136 [139] u[177]0 [167] 4000
  334. 3150 [141] 37
  335. 3151 tq[178]a[173]100:tq[178]tq[173]100:tq[178]tq[172]100
  336. 3155 [153][166]5)" du wirst von raubritter"
  337. 3157 [153][166]5)" ueberfallen sie erbeuten "tq" $"
  338. 3158 a[178]a[171]tq:a[178]a[173]100:a[178]a[172]100
  339. 3160 [139] i[177]0 [167] i[178]i[171]1
  340. 3170 [139] b[177]0 [167] b[178]b[171]1
  341. 3180 [153][166]25)"-taste-"
  342. 3190 [161] c$:[139]c$[178]"" [167] 3190
  343. 3199 [139] u[177]0 [167] 4000
  344. 3200 [153]"load":iq[178]iq[170]1
  345. 3210 [139] iq[178]3 [176] iq[178]5 [167] 3230
  346. 3220 [139] u[177]0 [167] 4000
  347. 3230 [141] 37
  348. 3233 [153][166]5)" deine arbeiter machen einen "
  349. 3234 [153][166]5)" aufstand !"
  350. 3237 [153][166]5)" du machst einen verlust von":lq[178]a[173]10:lq[178]lq[173]100:lq[178]lq[172]100
  351. 3239 [153][166]5)" "lq" gulden !"
  352. 3240 [153][166]25)"-taste-"
  353. 3245 [161] c$:[139]c$[178]"" [167] 3245
  354. 3248 [139] u[177]0 [167] 4000
  355. 3300 [153]"load":[153][166]5)" dein volk macht "
  356. 3310 [153][166]5)" wegen zuhoher steuern einen!"
  357. 3311 [153][166]5)" aufstand ! sie pluendern"
  358. 3312 [153][166]5)" den weizen speicher !"
  359. 3315 l[178]0:a[178]a[171]100:v[178]0
  360. 3318 [153][166]25)"-taste-"
  361. 3320 [161] d$:[139]d$[178]"" [167] 3320
  362. 3325 [139] u[177]0[167] 4000
  363. 3500 [153]"load":[151]53280,6:[153][199](5)
  364. 3501 [141] 37:zq[178]zq[170]1
  365. 3503 [139] zq[178]1 [167] 3520
  366. 3504 [139] zq[178]3 [167] 3540
  367. 3505 [139] u[177]0 [167] 4000
  368. 3520 [153][166]5)" du heiratest die prinzessin":a[178]a[170]2000
  369. 3523 [153][166]5)" eva von anhalt!"
  370. 3524 [153][166]25)"-taste-"
  371. 3530 [161] f$:[139]f$[178]"" [167] 3530
  372. 3532 [139] u[177]0 [167] 4000
  373. 3540 [153][166]5)" traurige nachricht:"
  374. 3542 [153][166]5)" du bist an pest gestorben"
  375. 3543 [129]i[178]1[164]3000:[130]
  376. 3545 [158] 64738
  377. 4000 [137] 4900
  378. 4001 [153]"load":[153][166]15)" bilanz":[153][166]15)"--------"
  379. 4002 [151]53280,6:cn[178]cn[170]1
  380. 4003 [153][166]3)" land "w""
  381. 4004 [153][166]3)" weizen "l""
  382. 4005 [153][166]3)" geld "a""
  383. 4006 [153][166]3)" arbeiter "i"
  384. 4007 printspc(3)" ritter "b""
  385. 4008 printspc(3)" raueber "s""
  386. 4010 printspc(3)" -----------------"
  387. 4012 printspc(3)" moral im land :"
  388. 4013 if a<1000 then printspc(3)" sehr mies":goto 4023
  389. 4014 if a<2000 then printspc(3)" aufruhr":goto4023
  390. 4017 if a<5000 then printspc(3)" trostlosigkeit":goto4023
  391. 4018 if a<7000 then printspc(3)" zufriedenheit":goto4023
  392. 4019 if a>9000 then printspc(3)" freude":goto4023
  393. 4020 printspc(3)" ein aufstand bahnt sich an !
  394. 4023 [153][166]30)"-taste-"
  395. 4025 [161] q$:[139]q$[178]"" [167] 4025
  396. 4028 a[178]a[173]100:a[178]a[172]100:l[178]l[170]100:i[178]i[170]1:s[178]s[170]2
  397. 4029 [139] i[177]20 [167] i[178]i[171]3
  398. 4030 [139] cn[179]1203 [167] [151]53281,0:[137]67
  399. 4034 [153]"load":[153][166]3)" willst du einen krieg":[151]53280,0:[151]53281,6
  400. 4040 [153][166]3)" fuehren  ?"
  401. 4043 [133] " ---> (j/n) ";p$
  402. 4045 [139] p$[178]"n" [176]p$[178]"nein" [167] 67
  403. 4046 [139] cn[179]1203 [167][153][166]3)" es ist noch zufrueh !":[137] 5500
  404. 4050 [143] krieg
  405. 4053 [153]"load":[153][166]15)" krieg ! "
  406. 4056 ox[178][181](6[172][187](1))[170]1
  407. 4059 [153][166]1)" deine soldaten liegen vor :";
  408. 4070 [139] ox[178]1 [167] [153]" wien";:wx[178]5
  409. 4072 [139] ox[178]2 [167] [153]" rom";:wx[178]3
  410. 4076 [139] ox[178]3 [167][153]" luebeck";:wx[178]1
  411. 4080 [139] ox[178]4 [167][153]" petersburg";:wx[178]2
  412. 4083 [139] ox[178]5 [167] [153]"  prag";:wx[178]4
  413. 4090 [139] ox[178]6 [167] [153]"  regensburg";:wx[178]3
  414. 4093 [153]
  415. 4100 [137] 5000
  416. 4900 [143]
  417. 4901 [139] i[179]0 [167] i[178]1
  418. 4903 [139] b[179]0 [167] b[178]0
  419. 4905 [139] s[179]0 [167] s[178]0
  420. 4910 [137] 4001
  421. 5000 [153]"---> angreifen (j/n) ";:[133]c$
  422. 5010 [139] c$[178]"j" [176]c$[178]"ja" [167] 6000
  423. 5012 [139] c$[178]"n" [176]c$[178]"nein" [167] 67
  424. 5014 [153][166]3)" entweder ja oder nein !":[129]u[178]1[164]1000:[130]:[153]"load":[137]4059
  425. 5500 [153][166]30)"-taste-"
  426. 5510 [161] f$:[139]f$[178]"" [167] 5510
  427. 5520 [151] 53281,0:[137]67
  428. 6000 [143] krieg
  429. 6001 [153]"load"
  430. 6002 [129]u[178]1[164]80 :[153]" attacke ";:[130]
  431. 6012 [153][166]5)" du greifst die stadt an !!!"
  432. 6013 [129]u[178]1[164]3000:[130]:[153]"load"
  433. 6015 kq[178][181](ox[172][187](1))[170]1
  434. 6020 [145] kq [137] 6100,6100,6100,6050,6050,6100
  435. 6021 [137] 6015
  436. 6050 [153][166]3)" der feind schlaegt dich in die
  437. 6054 printspc(3)" flucht ! das war eine pleite"
  438. 6056 printspc(3)" oooh herrr !"
  439. 6058 printspc(3)" du verlierst deine ganzen ritter":s=0
  440. 6060 printspc(3)" deine raueber schlagen sich"
  441. 6062 printspc(3)" in die buesche !!!":b=0
  442. 6065 a=a-1000
  443. 6066 goto 5500
  444. 6100 rem gewonnen
  445. 6122 printspc(3)" du gewinnst und pluenderst die"
  446. 6123 printspc(3)" stadt !":foru=1to1000:next
  447. 6128 fl=l*5:l=l+fl:wa=w*2:w=w+wa:ca=1000*qx:a=a+ca
  448. 6129 printspc(3)" du gewinnst "ca" gulden"
  449. 6130 printspc(3)" "fl" weizen und "wa" land"
  450. 6140 printspc(30)"-taste-"
  451. 6145 get b$:ifb$="" then 6145
  452. 6150 goto 67
  453. 7000 rem
  454. 7010 print"[147]"
  455. 7011 printspc(7)"                          "
  456. 7012 printspc(7)" [154]                         "
  457. 7016 printspc(7)" [154]  sir richard ein        "
  458. 7018 printspc(7)" [154]                         "
  459. 7019 printspc(7)" [154]  strategie pogramm      "
  460. 7023 printspc(7)" [154]                         "
  461. 7024 printspc(7)" [154]  von peter diehm (c)90  "
  462. 7025 printspc(7)" [154]                         "
  463. 7035 printspc(7)"                          "
  464. 7040 foru=1to2000:next:return
  465. 10000 goto 67
  466. 10010 rem peter diehm
  467. 10011 rem waldstr.58
  468. 10015 rem rimbach
  469. 10111 rem dont' validate
  470.